(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     11774,        305]
NotebookOptionsPosition[     10654,        276]
NotebookOutlinePosition[     11011,        292]
CellTagsIndexPosition[     10968,        289]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:666e\:901a\:8c03\:5e45", "Subsection",
 CellChangeTimes->{{3.786422191386902*^9, 
  3.7864221923689384`*^9}},ExpressionUUID->"74d23fe5-a482-43a1-90ef-\
e5776c0d5116"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"U\[CapitalOmega]", ":=", 
   RowBox[{"10", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "2"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"U\[Omega]", ":=", 
   RowBox[{"20", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Uam", ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"20", "+", "U\[CapitalOmega]"}], ")"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"U\[CapitalOmega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"U\[Omega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"Uam", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.786419898705758*^9, 3.786420089610181*^9}, {
   3.7864201196102285`*^9, 3.7864204582872143`*^9}, {3.7864204925322466`*^9, 
   3.78642049273068*^9}, {3.7864205244993243`*^9, 3.7864205785005465`*^9}, {
   3.7864206134096017`*^9, 3.7864208195300283`*^9}, {3.7864210319801006`*^9, 
   3.786421090078243*^9}, {3.7864211218816996`*^9, 3.786421133399001*^9}, {
   3.786421319923266*^9, 3.7864213343926477`*^9}, {3.7864214073703604`*^9, 
   3.7864216572008047`*^9}, {3.78642169907956*^9, 3.7864217345913353`*^9}, {
   3.7864219446098666`*^9, 3.786422003280179*^9}, {3.786422084156693*^9, 
   3.78642214304558*^9}, 3.786422176620224*^9, {3.7864223475052953`*^9, 
   3.78642235188963*^9}, {3.7864225146829844`*^9, 3.7864225314916754`*^9}, {
   3.7864228352243247`*^9, 3.786422876666952*^9}, {3.786422936434534*^9, 
   3.7864230348899527`*^9}, {3.7864239043612766`*^9, 3.786423942807849*^9}, {
   3.786423984381909*^9, 3.7864240200916295`*^9}, {3.786424081111761*^9, 
   3.786424111361659*^9}, {3.7864242393898945`*^9, 3.7864242748752265`*^9}, {
   3.7864243803335485`*^9, 3.7864244035392094`*^9}, {3.786424522672823*^9, 
   3.786424526208516*^9}, {3.786424998402416*^9, 3.7864250439365225`*^9}, 
   3.7864313063727827`*^9, {3.7864316401043015`*^9, 3.7864316846628942`*^9}, {
   3.786432748127862*^9, 3.78643285513631*^9}, {3.786432902587447*^9, 
   3.786432905885207*^9}, {3.786433124443466*^9, 3.786433147928042*^9}, {
   3.78643317986209*^9, 3.7864332071497583`*^9}, {3.786433250190974*^9, 
   3.7864332960797925`*^9}, {3.7864333491190825`*^9, 
   3.7864334361101036`*^9}, {3.786433694335067*^9, 3.786433699850273*^9}, {
   3.78643376385871*^9, 3.7864338005283413`*^9}, {3.7864338483884335`*^9, 
   3.7864338625973043`*^9}, {3.7864339724854665`*^9, 3.786433975247175*^9}, 
   3.786434013498496*^9, {3.7864340752964067`*^9, 3.7864340820094357`*^9}, {
   3.786434716007606*^9, 3.7864347163048115`*^9}, 3.786434898367032*^9, 
   3.7864352861712327`*^9, {3.793000387369348*^9, 3.793000389013949*^9}, 
   3.793003566436178*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"005cd9dd-be55-49f3-a140-daeedd4da135"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:53cc\:8fb9\:5e26\:8c03\:5e45", "Subsection",
 CellChangeTimes->{{3.786431491947939*^9, 
  3.786431495216946*^9}},ExpressionUUID->"fcd54d16-372d-4f44-a0d2-\
7312b80964fd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"U\[CapitalOmega]", ":=", 
   RowBox[{"10", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "2"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"U\[Omega]", ":=", 
   RowBox[{"20", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Udsb", ":=", 
   RowBox[{"U\[Omega]", " ", "U\[CapitalOmega]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"U\[CapitalOmega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"U\[Omega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"Udsb", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7864315212221584`*^9, 3.7864315676661396`*^9}, {
   3.786431758632203*^9, 3.7864317643024187`*^9}, {3.7864339015881863`*^9, 
   3.7864339147664022`*^9}, {3.7864339588965282`*^9, 3.786434013511462*^9}, {
   3.7864341597663307`*^9, 3.786434163998043*^9}, {3.786434725125802*^9, 
   3.786434725264398*^9}, 3.786434898378997*^9, 3.786435286185195*^9, {
   3.793000387381316*^9, 3.793000389028944*^9}, 3.7930035664501047`*^9},
 CellLabel->"In[13]:=",ExpressionUUID->"c6661886-abab-4700-800d-80cfafbb15e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8c03\:76f8", "Subsection",
 CellChangeTimes->{
  3.7864222018176756`*^9},ExpressionUUID->"0e4aec41-a621-438d-97e5-\
6002cac4f944"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"U\[CapitalOmega]", ":=", 
   RowBox[{"10", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "2"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"U\[Omega]", ":=", 
   RowBox[{"20", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Upm", ":=", 
   RowBox[{"20", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "+", 
      "U\[CapitalOmega]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"U\[CapitalOmega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"U\[Omega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"Upm", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.786421116529931*^9, 3.7864211183906326`*^9}, {
   3.7864211727193575`*^9, 3.786421260283304*^9}, {3.7864213392234235`*^9, 
   3.7864213995812016`*^9}, {3.7864220706003056`*^9, 3.786422081565936*^9}, 
   3.786422174890313*^9, {3.786422364995346*^9, 3.7864224526007175`*^9}, {
   3.786423061969516*^9, 3.7864231079532228`*^9}, {3.7864231471703844`*^9, 
   3.7864232369837723`*^9}, {3.7864232909355454`*^9, 
   3.7864232929305964`*^9}, {3.786423426953639*^9, 3.7864235316678095`*^9}, {
   3.7864235654136095`*^9, 3.78642358369953*^9}, {3.786423617675028*^9, 
   3.786423681033415*^9}, {3.7864237284719315`*^9, 3.7864237849795437`*^9}, 
   3.7864317958477755`*^9, {3.786433996525625*^9, 3.7864340135244265`*^9}, {
   3.7864341730360413`*^9, 3.786434176134805*^9}, {3.7864342280987844`*^9, 
   3.786434232032402*^9}, 3.7864348983949537`*^9, 3.786435286198161*^9, {
   3.793000350353352*^9, 3.7930003890448666`*^9}, 3.7930035664660616`*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"2a37436a-9afd-4822-a130-a85742054e32"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8c03\:9891", "Subsection",
 CellChangeTimes->{
  3.7864318094244223`*^9},ExpressionUUID->"d73ba6f5-d934-453c-9d6f-\
b9ea7bdc425c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"U\[CapitalOmega]", ":=", 
   RowBox[{"10", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "2"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"U\[Omega]", ":=", 
   RowBox[{"20", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{
      SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Ufm", ":=", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"20", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["10", "3"], " ", "\[Pi]", " ", "t"}], "+", 
       RowBox[{"\[Integral]", 
        RowBox[{"U\[CapitalOmega]", 
         RowBox[{"\[DifferentialD]", "t"}]}]}]}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"GraphicsColumn", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{"U\[CapitalOmega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"U\[Omega]", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"Ufm", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "0.05"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.786431816031581*^9, 3.7864318182020435`*^9}, {
   3.7864319871427975`*^9, 3.7864320142827888`*^9}, 3.7864320562165804`*^9, 
   3.7864321416349955`*^9, 3.78643222743331*^9, 3.786432306516862*^9, 
   3.7864323422420497`*^9, {3.786434008175662*^9, 3.786434013540385*^9}, {
   3.7864342370144386`*^9, 3.786434238292368*^9}, {3.7864347914570107`*^9, 
   3.7864348599147124`*^9}, 3.7864348984099135`*^9, 3.7864352862081347`*^9, {
   3.793000210200245*^9, 3.7930002359114404`*^9}, {3.7930003043085413`*^9, 
   3.7930003411589427`*^9}, {3.79300038745615*^9, 3.79300038905986*^9}, 
   3.7930035664780807`*^9},
 CellLabel->"In[53]:=",ExpressionUUID->"226b2aa1-a9fc-4a29-992f-de585f78d184"]
}, Open  ]]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 174, 3, 53, "Subsection",ExpressionUUID->"74d23fe5-a482-43a1-90ef-e5776c0d5116"],
Cell[757, 27, 3361, 69, 168, "Input",ExpressionUUID->"005cd9dd-be55-49f3-a140-daeedd4da135"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4155, 101, 178, 3, 53, "Subsection",ExpressionUUID->"fcd54d16-372d-4f44-a0d2-7312b80964fd"],
Cell[4336, 106, 1622, 41, 146, "Input",ExpressionUUID->"c6661886-abab-4700-800d-80cfafbb15e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5995, 152, 138, 3, 53, "Subsection",ExpressionUUID->"0e4aec41-a621-438d-97e5-6002cac4f944"],
Cell[6136, 157, 2262, 53, 168, "Input",ExpressionUUID->"2a37436a-9afd-4822-a130-a85742054e32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8435, 215, 138, 3, 53, "Subsection",ExpressionUUID->"d73ba6f5-d934-453c-9d6f-b9ea7bdc425c"],
Cell[8576, 220, 2062, 53, 182, "Input",ExpressionUUID->"226b2aa1-a9fc-4a29-992f-de585f78d184"]
}, Open  ]]
}
]
*)

